home *** CD-ROM | disk | FTP | other *** search
/ .net (Turkey) 1998 March / .net Internet Dergisi - CD 5.iso / pc / CON_BM / 00282_Script_282 < prev    next >
Text File  |  1997-11-07  |  6KB  |  227 lines
  1. on Launch param1
  2.   global gPlatform, gPathSep, gCDDrive
  3.   
  4.   
  5.   set ProgramtoLaunch = param1
  6.   
  7.   
  8.   --  PC Launch 
  9.   if the Machinetype = 256 then
  10.     put "pc" into firstDirectory 
  11.     
  12.     
  13.     case (ProgramtoLaunch) of
  14.         --      QT
  15.       "QT":
  16.         if gPlatform = "Windows,32" then
  17.           put "qt32inst.exe" into FileName
  18.         else if gPlatform = "Windows,16" then
  19.           put "qtinstal.EXE" into FileName
  20.         end if
  21.         
  22.         
  23.         --      Internet browsers and Essentials  
  24.       "IE3":
  25.         if gPlatform = "Windows,32" then
  26.           put "msie301.exe" into FileName
  27.         else if gPlatform = "Windows,16" then
  28.           put "setup.exe.exe" into FileName
  29.         end if
  30.       "swave":
  31.         if gPlatform = "Windows,32" then
  32.           put "shockw95.exe" into FileName
  33.         else if gPlatform = "Windows,16" then
  34.           put "shockw31.exe" into FileName
  35.         end if  
  36.       "catz":
  37.         if gPlatform = "Windows,32" then
  38.           put "setup.exe" into FileName
  39.         else if gPlatform = "Windows,16" then
  40.           put "setup.exe" into FileName
  41.         end if 
  42.       "aol":
  43.         put "setup.exe" into FileName
  44.       "webex":
  45.         if gPlatform = "Windows,32" then
  46.           put "trywebx2.exe" into FileName
  47.         else if gPlatform = "Windows,16" then
  48.           put "tryweb2x.exe" into FileName
  49.         end if
  50.         
  51.       "webedit":
  52.         if gPlatform = "Windows,32" then
  53.           put "setup.exe" into FileName
  54.         else if gPlatform = "Windows,16" then
  55.           put "setup16.exe" into FileName
  56.           exit 
  57.         end if  
  58.         
  59.       "free":
  60.         if gPlatform = "Windows,32" then
  61.           put "fa32-111.exe" into FileName
  62.         else if gPlatform = "Windows,16" then
  63.           put "fa16-111.exe" into FileName
  64.           exit 
  65.         end if
  66.         
  67.       "flash":
  68.         if gPlatform = "Windows,32" then
  69.           put "setup.exe" into FileName
  70.         else if gPlatform = "Windows,16" then
  71.           NoSuchProgram
  72.           exit 
  73.         end if
  74.         
  75.         --        Movies Section
  76.       "dogz": 
  77.         if gPlatform = "Windows,32" then
  78.           put "dogz.exe" into FileName
  79.         else if gPlatform = "Windows,16" then
  80.           put "dogz.exe" into FileName
  81.           exit 
  82.         end if
  83.         
  84.         --       Music Section 
  85.         
  86.       "qm":
  87.         if gPlatform = "Windows,32" then
  88.           put "setup.exe" into FileName
  89.         else if gPlatform = "Windows,16" then
  90.           put "setup.exe" into FileName
  91.           exit 
  92.         end if 
  93.         
  94.       "ballz":
  95.         if gPlatform = "Windows,32" then
  96.           put "setup.exe" into FileName
  97.         else if gPlatform = "Windows,16" then
  98.           put "setup.exe" into FileName
  99.           exit 
  100.         end if
  101.         
  102.         
  103.         --        Games
  104.         
  105.         
  106.       "alife":
  107.         if gPlatform = "Windows,32" then
  108.           put "altss6eb.exe" into FileName
  109.         else if gPlatform = "Windows,16" then
  110.           NoSuchProgram
  111.           exit 
  112.         end if
  113.         
  114.       "qrally":
  115.         if gPlatform = "Windows,32" then
  116.           put "qrally.exe" into FileName
  117.         else if gPlatform = "Windows,16" then
  118.           put "qrally.exe" into FileName
  119.           exit 
  120.           
  121.         end if
  122.     end case
  123.     
  124.   end if  
  125.   
  126.   
  127.   
  128.   --  Mac launch    
  129.   if the Machinetype <> 256 then
  130.     --    if gPlatform = "Macintosh,PowerPC" then
  131.     --      put "powerpc" into firstDirectory
  132.     --    else
  133.     put "mac" into firstDirectory
  134.     --    end if
  135.     
  136.     
  137.     case (ProgramtoLaunch) of
  138.         
  139.         --      QT
  140.       "QT":
  141.         put "disk1:installer" into FileName 
  142.         
  143.         --      Games
  144.       "dogz":
  145.         if gPlatform = "Macintosh,PowerPC" then
  146.           put "dogz installer" into FileName 
  147.         else if gPlatform = "Macintosh,68k" then
  148.           put "dogz installer" into FileName 
  149.         end if
  150.       "chick":
  151.         if gPlatform = "Macintosh,PowerPC" then
  152.           put "chick" into FileName 
  153.         else if gPlatform = "Macintosh,68k" then
  154.           put "chick" into FileName 
  155.         end if
  156.       "quake":
  157.         if gPlatform = "Macintosh,PowerPC" then
  158.           put "quake" into FileName 
  159.         else if gPlatform = "Macintosh,68k" then
  160.           put "quake" into FileName 
  161.         end if
  162.         
  163.         
  164.         --        Movies Section
  165.       "catz":
  166.         if gPlatform = "Macintosh,PowerPC" then
  167.           put "catz" into FileName 
  168.         else if gPlatform = "Macintosh,68k" then
  169.           put "catz" into FileName 
  170.         end if
  171.         
  172.         --      Internet browsers and Essentials  
  173.       "IE3":
  174.         if gPlatform = "Macintosh,PowerPC" then
  175.           put "ie3ppc.ins" into FileName 
  176.         else if gPlatform = "Macintosh,68k" then
  177.           put "ie368k.ins" into FileName
  178.         end if 
  179.       "swave":
  180.         if gPlatform = "Macintosh,PowerPC" then
  181.           put "shock(ppc)" into FileName 
  182.         else if gPlatform = "Macintosh,68k" then
  183.           put "shock(68)" into FileName 
  184.         end if
  185.       "raudio":
  186.         if gPlatform = "Macintosh,PowerPC" then
  187.           put "real(ppc)" into FileName 
  188.         else if gPlatform = "Macintosh,68k" then
  189.           put "raud68" into FileName
  190.         end if  
  191.       "flash":
  192.         if gPlatform = "Macintosh,PowerPC" then
  193.           put "flash2ppc" into FileName 
  194.         else if gPlatform = "Macintosh,68k" then
  195.           put "flash268k" into FileName 
  196.         end if 
  197.       "qm":
  198.         if gPlatform = "Macintosh,PowerPC" then
  199.           put "quick" into filename
  200.         else if gPlatform = "Macintosh,68k" then
  201.           put "quick" into filename
  202.           
  203.         end if
  204.         
  205.     end case
  206.     
  207.   end if
  208.   
  209.   alert "The Platform: " & gPlatform & numtochar(13) & numtochar(13) & "Path Separator: " & gPathSep & numtochar(13) & "CDDrive: " & gCDDrive & numtochar(13) & "program to launch: " & ProgramtoLaunch & numtochar(13) & "filename " & FileName
  210.   
  211. alert "Launching: " & gCDDrive & firstDirectory & gpathsep & ProgramtoLaunch & gpathsep & FileName
  212.   -- launching program bit 
  213.   open gCDDrive & firstDirectory & gpathsep & ProgramtoLaunch & gpathsep & FileName
  214.   --  exit
  215.   
  216. end launch
  217.  
  218.  
  219.  
  220.  
  221.  
  222.  
  223.  
  224.  
  225.  
  226.  
  227.